clear
close
anz = 10;
xx = randi([1 100],anz,1);
yy = randi([1 100],anz,1);
%geht nicht
%xx = [95;9;11;15;17;63;58;6;94;73];
%yy = [74;7;87;94;99;86;79;52;18;40];
% geht
%xx = [3;4;5;3;9;2;3;2;3;5];
%yy = [4;10;5;2;10;10;5;2;3;5];
z = length(xx);
c = zeros(z);
for n = 1:z
    for m = 1:z
        c(n,m) = sqrt((xx(n)-xx(m))^2+(yy(n)-yy(m))^2);
        if (n == m)
            c(n,m) = inf;
        end
    end
end
c = round(c);
[kOpt kNN] = BnbEntfernungsMatrixPlotUM(c, xx, yy);